home *** CD-ROM | disk | FTP | other *** search
/ GRAVIS Top 100 #1 / GRAVIS CD No1_Herbst_94.cdr / Deneba / Canvas™ 3.5.2 US / Canvas Tools / Separations / Separations.rsrc / hd11_1012_Text header < prev    next >
Text File  |  1994-05-20  |  5KB  |  103 lines
  1. %%BeginProcSet:CanvasTextDict
  2. /CanvasTextDict where not{/CanvasTextDict 250 dict def}{pop}ifelse
  3. CanvasTextDict begin
  4. systemdict/setpacking known{/origpack currentpacking def true setpacking}if
  5. /bdf{bind def}bind def
  6. /xdf{exch bind def}bdf
  7. /min{2 copy gt{exch}if pop}bdf
  8. /edf{exch def}bdf
  9. /max{2 copy lt{exch}if pop}bdf
  10. /T true def/F false def
  11. /dbg F def
  12. /cvmtx matrix def
  13. /currot 0 def
  14. /rotmtx matrix def
  15. /origmtx matrix def
  16. /cvangle {360 exch sub 90 add 360 mod}bdf
  17. /setrot {/currot edf rotmtx currentmatrix pop 2 copy translate currot rotate neg exch neg exch translate}bdf
  18. /endrot {rotmtx setmatrix /currot 0 def}bdf
  19. /BeginEPSF
  20. {
  21.     /MySave save def
  22.     /dict_count countdictstack def
  23.     /op_count count 1 sub def
  24.     userdict begin
  25.     /showpage {} def
  26.     0 setgray 0 setlinecap
  27.     1 setlinewidth 0 setlinejoin
  28.     10 setmiterlimit [] 0 setdash newpath
  29.     /languagelevel where
  30.     {pop languagelevel 1 ne{false setstrokeadjust false setoverprint}if}if
  31. }bdf
  32. /EndEPSF
  33. {
  34.     count op_count sub {pop}repeat
  35.     countdictstack dict_count sub {end}repeat
  36.     MySave restore
  37. }bdf
  38. /rectpath {/cv_r edf/cv_b edf/cv_l edf/cv_t edf
  39. cv_l cv_t moveto cv_r cv_t lineto cv_r cv_b lineto cv_l cv_b lineto cv_l cv_t lineto closepath}bdf
  40. /spx{SpaceExtra 0 32 4 -1 roll widthshow}bdf
  41. /lsx{SpaceExtra 0 32 LetterSpace 0 6 -1 roll awidthshow}bdf
  42. /Rjust{stringwidth pop JustOffset exch sub /JustOffset edf}bdf
  43. /Cjust{stringwidth pop 2 div JustOffset exch sub /JustOffset edf}bdf
  44. /adjfit{stringwidth pop LetterSpace StringLength 1 sub mul add SpaceExtra NumSpaces mul add dup /pw edf JustOffset exch 
  45. sub dup /wdif edf StringLength div LetterSpace add /LetterSpace edf}bdf
  46. /ulb{currentpoint pop /underlinpt edf}bdf
  47. /ule{gsave currentpoint newpath moveto currentfont dup /ft1 known{dup /ft1 get begin /FontMatrix get FontMatrix tpmx concatmatrix pop}
  48. {begin FontMatrix tpmx copy pop}ifelse FontInfo begin UnderlinePosition UnderlineThickness end end dup tpmx
  49. dtransform pop setlinewidth dup tpmx dtransform pop 0 exch rmoveto underlinpt currentpoint pop sub 0 rlineto stroke grestore}bdf
  50. /fittext{ /SpaceExtra edf /LetterSpace edf /StringLength edf /NumSpaces edf /JustOffset edf not 1 currentgray ne or
  51. {dup {ulb}if exch
  52. dbg not {dup adjfit}if
  53. lsx {ule}if}{pop pop}ifelse}bdf
  54. /cvRecFont{/encod edf FontDirectory 2 index known{cleartomark}{findfont dup length 1 add dict begin
  55. {1 index/FID ne{def}{pop pop}ifelse}forall encod{/Encoding CVvec def}if
  56. currentdict end definefont cleartomark}ifelse}bdf
  57. /wrk1 ( ) def/wdict 16 dict def
  58. /Work75 75 string def /Nmk{Work75 cvs dup}bdf /Npt{put cvn}bdf /dhOdh{Nmk 2 79 Npt}bdf /dhodh{Nmk 2 111 Npt}bdf    /dhSdh{Nmk 2 83 Npt}bdf
  59. /sfWidth{gsave 0 0 moveto 0 0 lineto 0 0 lineto 0 0 lineto closepath clip stringwidth grestore}bdf
  60. /MakOF{dup dhodh FontDirectory 1 index known{exch pop}{exch findfont dup length 1 add dict begin
  61. {1 index/FID ne 2 index /UniqueID ne and{def}{pop pop}ifelse}forall
  62. /PaintType 2 def
  63. /StrokeWidth .24 1000 mul ftSize div dup 12 lt{pop 12}if def
  64. dup currentdict end definefont pop}ifelse}bdf
  65. /fts{dup/ftSize edf}def
  66. /mkFT{/tempFT 11 dict def tempFT begin
  67. /FontMatrix [1 0 0 1 0 0] def/FontType 3 def
  68. FontDirectory 3 index get /Encoding get/Encoding exch def
  69. /proc2 edf/ft2 exch findfont def/ft1 exch findfont def/FontBBox [0 0 1 1] def
  70. /BuildChar{wdict begin/chr edf/ftdt edf/chrst wrk1 dup 0 chr put def ftdt/proc2 get exec end}def
  71. end tempFT definefont pop}bdf
  72. /OLFt{dup dhOdh FontDirectory 1 index known{exch pop}
  73. {dup 3 -1 roll dup MakOF {outproc} mkFT}ifelse}bdf
  74. /mshw{moveto show}bdf
  75. /outproc{ftdt/ft1 get setfont gsave chrst sfWidth grestore setcharwidth dblsh}bdf
  76. /dblsh{currentgray 1 setgray chrst 0 0 mshw setgray ftdt/ft2 get setfont chrst 0 0 mshw}bdf
  77. /ShadChar{ftdt/ft1 get setfont gsave chrst sfWidth 1 index 0 ne{exch .05 add exch}if grestore setcharwidth
  78. chrst .06 0 mshw 0 .05 translate dblsh}bdf
  79. /ShFt{dup dhSdh FontDirectory 1 index known{exch pop}
  80. {dup 3 -1 roll dup MakOF {ShadChar} mkFT}ifelse}bdf
  81. /CVvec 256 array def
  82. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  83. CVvec 0 32 getinterval astore pop
  84. CVvec 32/Times-Roman findfont/Encoding get
  85. 32 96 getinterval putinterval CVvec dup 39/quotesingle put 96/grave put
  86. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  87. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  88. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  89. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  90. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  91. /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  92. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  93. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  94. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  95. /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe
  96. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  97. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  98. /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute
  99. /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
  100. /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  101. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  102. CVvec 128 128 getinterval astore pop
  103.